Apple Reference & Presen…rary 6 (Reseller Edition)/Apple Ref. & Pres. Lib.v6.0.toast/pc/3-Presentations/Apple Demos/Training/Apple Scanner Training/Examples/card_8927.txt

Text File | 1990-04-09 | 4KB | 141 lines

-- card: 8927 from stack: in
-- bmap block id: 2881
-- flags: 0000
-- background id: 4709
-- name: Examples
----- HyperTalk script -----
on openCard
  hide menuBar
  hide card field "Message Center"
  put "Please click on the item name to see an example." into card field "Define Message"
  show card field "Define Message"
  set hilite of background button "Examples" to true
  set hilite of background button "Market Needs" to false
  ResetMenuField
end openCard

on mouseUp
  show card field "Define Message"
end mouseUp


on closeCard
  hide card field "Message Center"
  hide card field "Define Message"
end closeCard

on ResetMenuField
  put " Newsletters" & return & " Graphic Design" & return & " Illustrations" & return & " Presentations" & return & " Document Processing" & return & " Databases" & return & " Brochures" & return & " Image Transmission" & return & " Manuals" & return into card field "Select Field"
end ResetMenuField




-- part 18 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=38 top=269 right=307 bottom=184
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Message Center


-- part 19 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=35 top=235 right=265 bottom=188
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Define Message


-- part 46 (field)
-- low flags: 01
-- high flags: 2004
-- rect: left=26 top=76 right=233 bottom=192
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Select Field
----- HyperTalk script -----
on mouseUp
  global whichExample,showState
  put empty into whichExample
  put empty into showState
  put 1 + (the clickV - top of me) div textHeight of me into clickLine
  if line clickLine of me is not empty then
    put word 1 of line clickLine of card field "Select Field" into whichExample
    put "•" into char 1 of line clickLine of card field "Select Field"
    push card
    visual dissolve to card
    go to card whichExample
  else
    if line clickLine of me is not empty and whichExample is "Science &" then
      push card
      visual dissolve to card
      go to card "Science & Engineering"
    else
      if line clickLine of me is not empty and whichExample is "HyperCard Stack" then
        push card
        visual dissolve to card
        go to card "HyperCard Stack"
      end if
    end if
  end if
end mouseUp

on ResetMenuField
  put " Newsletters" & return & " Graphic Design" & return & " Illustrations" & return & " Presentations" & return & " Document Processing" & return & " Databases" & return & " Brochures" & return & " Image Transmission" & return & " Manuals" & return into card field "Select Field"
end ResetMenuField




-- part 47 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=362 top=274 right=310 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part contents for card part 19
----- text -----
Please click on the item name to see an example.

-- part contents for card part 18
----- text -----
Please try again.

-- part contents for card part 46
----- text -----
 Newsletters
 Graphic Design
 Illustrations
 Presentations
 Document Processing
 Databases
 Brochures
 Image Transmission
 Manuals